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BASES DE DONNEES 
ET SYSTEMES EXPERTS: suite | 


EDITORIAL 


Enfin de la couleur. Jedi se veut plus dense, plus vivant, plus animé. Et il 

y réussit très bien avec votre aide. Réaliser un mensuel imprimé tous les mois 
et dont vous ne nous faites que des éloges , méritait une touche de couleur. 

Il nous semblait important de marquer nos deux années d'existence par une amé- 
lioration de la maquette du journal. Si la typographie intérieure est parfois 
un peu sommaire, nous nous rattrapons sur l'aspect de la couverture. Il n'est 
p&s toujours facile de trouver des sujets de décoration. L'option la plus sim- 
ple auräit consisté à choisir un sujet austère et figé. Mais comme son contenu, 
JEDI évolue et tient à le faire savoir. 


Dans ce numéro, certains articles sont des réponses à diverses questions qui 
nous ont été posées (tracé d'arcs de cercles, par exemple), rédigées sous for- 
me d'articles assez courts. Si vous-même avez des trucs et des astuces de pro- 
grammes rédigés en quelques lignes, faites en part aux autres adhérents. Sou- 
vent, ce peut étre le départ d'une idée de programme plus ambitieu pour le lec- 
teur. Le partage de la connaissance donne toujours des retombées dont les béné- 
fices peuvent être une collaboration sur un même sujet ou un gain de temps sur 
un problème auquel on n'en a que peu à consacrer. Et dans JEDI, les idées les 
délirantes sont les bienvenues (voir BLAISE), sans limite de domaine, de système 
ou de langage. 
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 FORTH LE ELAISE 3e épiscde par Eric AUBOURG 


Pour mettre en pratique les deux premiers épisodes, j'ai défini un langage ins- 
piré de PASCAL, le BLAISE. 


11 est assez aïsé de vérifier sur les diagrammes syntaxiques que nos deux lois 
sont respectées. Pour écrire l'analyseur, j'ai choisi le FORTH: ce langage s'y 
prète très bien. Pour pouvoir utiliser les routines du noyau, j'ai imposé la 
condition que tous les identificateurs soient séparés par au moins un espace 

{ généralement les compilateurs acceptent que l'on accole un signe de ponctua- 
tion et un identificateur, ceux-ci ne comportant alors que des caractères alpha- 
numériques). 


Le programme source doit être tapé dans un bloc buffer, l'usage de " -- ©‘ étant 
admis. L'analyse est lancée par :n PROGRAMME, n étant le numéro du premier écran 
du programme ( comme LOAD ). 


Les codes d'erreur sont les suivants: 


1 utiliser = au lieu de := 

2 nombre attendu après = 

3 = attendu 

4 identificateur attendu après CONST, VAR, PROCEDURE 
5 , où ; attendu 

9 . attendu 

12 variable attendue 

13 := attendu 

14 identificateur de procédure attendu 
16 then attendu 

17 ;: où end attendu 

18 do attendu 

20 opértateur relationnel attendu 
22 ) attendu 
25 ( attendu 


Dans le prochain numéro, nous aborderons la génération du code objet, et nous 
écrirons un véritable compilateur pour le BLAISE ( Nälr: tout ceci est ... 
Achement BLAISE ... comme disait le pote, celui avec sa salopette rayée sl 


PROGRAMME 


me -O 


CONDITION 
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Ce) 


DA Te pre AO 


NSTRGCTION 


EXPRESSION 


heal TERME 


TRUE 
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TERME 


FACT EUR 


R 
© 
1 
2 
3 
4 
S 
6 
? 
8 
o 


9 
##+ ANALYSEUR BLAISE 


# 
€ 


VOCABULARY MOTRESERVES 


1 CONSTANT BEGIN 2 
3 CONSTANT CONST 4 
S CONSTANT END é 
7 CONSTANT ODD 8 


9 CONSTANT THEN 19 
11 CONSTANT WHILE 12 


13 CONSTANT WRITE 1S 
17 CONSTANT := 18 
19 CONSTANT - 2e 
21 CONSTANT / 22 
23 CONSTANT > 24 
25 CONSTANT «<> 26 
27 CONSTANT >= 28 
# 10 

{ xx ANALYSEUR BLAISE 
14 CONSTANT !{ 16 
29 CONSTANT . 3e 


FORTH DEFINITIONS 


* MOTRESERVES CONSTANT 
f ERREUR 

." ERREUR #* . BLK e 
. CR HERE COUNT TYPE 
GETSYM 

DROP -FIND 


1 XXX ) 


MOTRESERVES DÉFINITIONS 
CONSTANT CALL 

CONSTANT DO 

CONSTANT IF 

CONSTANT PROCEDURE 
CONSTANT VAR 

CONSTANT READ 

CONSTANT ) 

CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 


AA IX + 


2 KXKX ) 
CONSTANT , 
CONSTANT --2 


LIMITUOC 


." BLOC #" . 
QUIT ; 


IN @ 64 / 


IF DROP CFA DUP LIMITUOC > ELSE 8 DUPF THEN 


IF EXECUTE DUF 39 = 
IF (COMPILE) 


--> 


( Xxx ANALYSEUR BLAISE 


ELSE 
DROP HERE NUMBER DROP 
THEN 3 
8 
: FACTEUR 
DUF 39 
DUP 34 
DUP 14 
15 + 


2 


OVER 34 € AND 


nn 


# 


IF GETSYM C 
IF 22 ERREUR THEN 


23 ERREUR THEN THEN THEN ;j 


ERIC ALIECOURG 
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SO KXX ) 


DROP 31 


IF GETSYM ELSE 


1F 21 ERREUR ELSE 
HERE SP@ 14 + ! © , ]J 


g GETSYM ELSE 
--2 


." LIGNE #” 


--> L SMUDGE J] GETSYM [ SMUDGE 1] THEN 
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SCR # 12 


S ( XXX# ANALYSEUR BLAISE 4 XxXx% } 
1 : TERME 
2 BEGIN 
= FACTEUR DUP 29 = OVER 21 = OR 
4 VWHILE 
5 GETSYM 
& REPEAT 3; 
7 ! EXPRESSION 
8 DUP 18 = OVER 19 = OR 
9 1F GETSYM THEN 
1@ BEGIN 
11 TERME DUP 18 = OVER 19 = OR 
12 VHILE 
13 GETSYM 
i REPEAT 3 
15 ?’ EXPRESSION CFA SWAP ! GP 
SCR # 13 
Ç #Kk*x ANALYSEUR BLAISE 5 XXX ) 
5 CONDITION 


a 
1 
2 DUP 7 = 

ÿ IF GETSYM EXPRESSION 

4 ELSE EXPRESSION DUP 21 > OVER 28 < AND 
S IF GETSYM EXPRESSION 

6 ELSE 29 ERREUR 

= 

8 

9 


"THEN THEN 3; 
: INSTRUCTION [I SMUDGE 1] 
DUP CASE ü 
19 32 OF GETSYM DUP 17 = 
11 IF GETSYM EXPRESSION 
12 ELSE 13 ERREUR THEN ENDOF 


13 33 OF 12 ERREUR ENDOF 
14 34 OF 12 ERREUR ENDOF 
15 2 OF GETSYM DUP 34 = — 


Ve 


SCR # 14 
9 © XKx*x ANALYSEUR BLAISE 6 XX%X ) 
1 IF GETSYM 
2 ELSE 14 ERREUR THEN ENDOF 
N 6 OF GETSYM COMDITION DUP 9 = 
4 IF GETSYM INSTRUCTION 
s ELSE 16 ERREUR THEN ENDOF 
6 11 OF GETSYM CONDITION DUP 4 = 
? IF GETSYM INSTRUCTION 
8 ELSE 18 ERREUR THEN ENDOF 
9 1 OF GETSYM BEGIN INSTRUCTION DUP 28 = 


19 WHILE GETSYM REPEAT DUP 5 - 
11 IF 17 ERREUR THEN 
12 GETSYM ENDOF 


15 ENDCASE DUP 12 = OVER 13 = OR IF GETSYM DUP 14 - 
14 1F 25 ERREUR THEN GETSYM BEGIN DUP 32 = OVER 33 = OR @= 


1 1F 12 ERREUR THEN GETSYM DUP 16 = WHILE GETSYM => 
SCR # 15 

S ( XXX ANALYSEUR BLAISE 7 XKX ) 

1 REPEAT 

2 DUP 15 - IF 22 ERREUR THEN GETSYM 

3 THEN ÿ SMUDGE 

4 : BLOC CT SMUDGE 3 

S DUP S = 

6 IF BEGIN 

7 33 CONSTANT GETSYM DUP 22 - 

8 1F 3 ERREUR THEN GETSYM DUP 31 - 

a IF 2 ERREUR THEN GETSYM DUP ié6 - 

1e UNTIL 

11 

42 

13 DUP 28 - 1F S ERREUR THEN GETSYM THEM 

14 DUP 19 = 

15 IF BESIN re? 


Jen N°28 <eplembre A986 


un 
Q 
2 


# 16 
( #k%X ANALYSEUR BLAISE 8 X#*% ) 
32 CONSTANT GETSYM DUP 16 - 


UNTIL 


DUP 28 - IF 5 ERREUR THEN 
GETSYM THEN 

BEGIN 

DUP 8 = 

WHILE 


9 0 VE A B LU N + 


34 CONSTANT GETSYM 28 - IF S ERREUR THEN 
R> 


LATEST 9 GETSYM BLOC >R CURRENT @ 
DUP 28 - IF 5 ERREUR THEN GETSYM 
REPEAT INSTRUCTION ÿ SMUDGE 
PROGRAMME 

MOTRESERVES DEFINITIONS CR 


17 

xx ANALYSEUR BLAISE 9 #X%% ) 

BLK @ DR IN @ DR B/SCR * BLK ! S IN 
9 GETSYM BLOC 29 - IF 9 ERREUR THEN 
(COMPILE) FORTH DEFINITIONS 

R> IN ! R> BLK ! ." ANALYSE TERMINEE 


ERIC AUBOURG 


APL. PREMERE APPROCHE 


Au début des années 60, le mathématicien K.E. 
IVERSON a ressenti le besoin d'élaborer un lan- 
gage concis, permettant de décrire les états et 
l'évolution des processus physiques se déroulant 
à l'intérieur des ordinateurs. 11 élabora un 
système de notation qui porte son nom et dont 
l'ensemble constiteu la base du langage APL. 
implémenté sur ordinateur, ce langage fut très 
vite doté d'un ensemble très puissant de primi- 
tives mathématiques, particulièrement apte à 
traiter les variables multidimensionnelles (vec 

teurs, matrices, tableaux). 


UN LANGAGE CONVERSATIONNEL. 


Apparu à une époque où la régle générale en 
informatique était le traitement par lots (batch 
processing), le langage APL mettait en oeuvre un 
nouveau type de relation homme-machine, le dia- 
logue par écran-clavier, tel que nous le con 

naissons maintenant sur tes terminaux et les 
micro-ordinateurs. 


Le langage APL est donc dès l'origine un langage 
essentiellement conversationnel Cinteractif). 


UN SYSTEME COMPLET 


Le langage (où le systéme) APL a été dés l'ori 
gine conçu comme un système de développement 
complet, incluant un éditeur de fonctions simple 
mais efficace, et un svstème d'archivage de 
programmes et de données par sauvegarde des 
espaces de travail. 


11 est encore vossible dans certaines timites de 
travailler entiérement sous APL Sans faire appel 
aux fonctionnalités du DOS. Ce type de fonction 
nement a été repris par la suite sur les micro 
ordinateurs travaillant exclusivement sous BASIC 
par exemple. 
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par F. ESPINASSE 


DÉS REGLES SIMPLES ET UNIVERSELLES 


Les règles du langage APL reposent sur les nota- 
tions d'IVERSON qui constituent un ensemble 
logique et cohérent en comparaison avec l'anar- 
chie des notations mathématiques classiques. Par 
exemple, il y a deux types d'opérateurs: 


- l'opérateur monadique qui admet un argument 
à droite. 


l'opérateur dyadique (ou diadique) qui admet 
un argument gauche et un argument droite. cette 
régle ne souffre pas d'exception. 


Factorielle 2 s'écrira: 3e 


l'opérateur factorielle “y" étant monadique De 
même, il n'y a pas de priorité entre les opéra: 
teurs. Toutes les opérations sont effectuées 
dans l'ordre, de la droite vers la gauche. Ain- 


si, le résultat de 
2x 3 + 6 est 18 


Au début, ça surprend (NDLR: sauf les FORTHiens 
chevronés) nos esprits rompus (ou corrompus) aux 
notations mathématiques classiques. On s'y fait 
encore piéger de temps à autre après des années 
de pratique. Mais c'est un élément de simplicité 
et d'universalité des règles d'APL. 


UN LANGAGE PORTABLE 


Grace à cette simplicité et cette universalité, 
le langage APL repose sur une norme bien établie 
et reconnue, dont les diverses implémentations 
s'écartent très peu. on n'y retrouve pas la 
fioraison de dialectes que connaissent d'autres 


langages. Si l'on ajoute à celà que les program- 
mes  APL sont du code source que l'on peut sto 
cker sous forme de fichiers de caractères, on 
voit que la portabilité de l'APL est très bonne. 


Surle en pase A6 


LPB COLONISATION D'UN IBM par_ Christian SCHERER 


Au fil des leçons précédentes, nous avons cherché à illustrer les 
principales caractéristiques qui font l'originalité du langage L.P.B. (langage 
pseudo-basic). 


Difficile de classer celui-ci dans la jungle informatique actuelle 
espèce en voie de disparition avant d'avoir vraiment vécu, grand fauve encore 
au biberon, ou simple ectoplasme 7? 


Tout réfléchi, la meilleure comparaison qui s'impose, c'est celle de la 
chauve-souris : au langage évolué (BASIC par exemple), on emprunte l'allure 
externe, la facilité de manipulation et de mise au point, et au langage-machine 
(en pratique l'assembleur) la vitesse d'exécution, la compacité du code et la 
possibilité de faire faire à un micro-ordinateur exactement ce que l'on veut. 


Cette performance est obtenue grâce à un compilateur dénommé BALCOM qui 
a la propriété d'être lui-même écrit en langage L.P.B. et d'exister sur une 
grande variété de machines différentes, puisqu'un dialecte particulier à chaque 
micro- processeur a été défini, reflétant le jeu de registres et d'opérations 
propre à chacun d'eux, 


Comme beaucoup de nos lecteurs, le langage L.P.B. a fini par succomber 
à la tentation représentée par l'univers des ordinateurs compatibles avec 
IBM-PC, qu'ii a entrepris de coloniser, embarquant avec lui tout le savoir 
accumulé lors de ses séjours chez les autres types de microprocesseurs (Z80, 
6502 et 6809). 


Partant de l'idée qu'une exploration raisonnée doit commencer par le 
commencement, nous invitons fermement ceux qui partent à la découverte de ce 
type de machines de méditer préalablement notre premier exemple qui montre de 
façon simple et rigoureuse comment, en respectant l'architecture logicielle 
d'un JIBM-PC, on peut 


- exploiter le système général d'interruptions logicielles 
- surveiller l'état du clvaier 

- gérer l'écran monochrome en mode texte 

convertir du code ASCII en hexadécimal 


A l'attention des néophytes, et avant de vous inviter à découvrir tous 
les détails de l'exemple, rappelons que 


- Le micro-processeur 80-88 travaille avec des adresses de 20 bits 
formées par combinaison entre un registre de segment (16 bits) qu'il décale de 
4 bits vers la gauche avant de lui ajouter une adresse relative (16 bits). 


- l'acès normal à l'écran passe par l'interruption logicielle INT 16 
fournie par le BIOS (Basic Input-Output System), à moins que l'on ne préfère 
écrire directement dans la zone RAM qui commence à l'adresse absolue &HB0000. 


- l'accès au clavier utilise normalement l'interruption logicielle 
INT 22, mais on peut aussi consulter directement l'état des bascules 
principales telles que CAPS LOCK et NUM LOCK, qui se trouve dans l'octet RAM 
d'adresse &H417. 


Nous avons aussi désassemblé et commenté le code exécutable produit par 
BALCOM à partir du texte L.P.B., de façon à bien montrer le détail des 
mécanismes. 


Nous accueillerons bien volontiers à l'avenir dans cette même rubrique 
t tout petit programme de même style pouvant contribuer à mieux faire connaître 
le fonctionnement interne d'un compatible IBM-PC. 
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FORTHI Routines générales 


REFERENCES 


Dar Gérard SOULA 


AJOUTE incrémente de 1 le compteur. 


COMBIEN lit la valeur contenue dans le 


Difficuté de programmation: moyenne 
compteur. 


Catégorié: utilitaire 


Difficulté d'exercice: facile | : 
WITHIN ( n inf sup _ - f) teste si un nombre n 


se trouve dans l'intervalle inf sup-1 et donne 


L'EXERCICE: À : A 
1 si oui, O si non. 


11 s'agit de se constituer quelques utilitaires 
que l'on pourra utiliser dans de nombreux 
autres programmes. 


WITHIN donne 
WITHIN donne 
WITHIN donne 
WITHIN donne 


AMME 
LE PROGRAM WITHIN donne 


PAGE efface l'écran et dépend de votre système. 
La définition donnée est valable sur le 
COMMODORE 64. 


On utilise la pile retour et le test logique 
AND 


O/N € --- f) attend une touche au clavier. 
Ignore si ce n'est pas O ou N, rend O si c'est 
N et 1 si c'est ©. 


RND € n --- n') générateur de nombre aléatoire 
n' compris entre O et n-1. 


RANDOM € n -.- n'} nombre aléatoire entre 1 et 
n. 


ENCORE? [( --- f) est destiné à être utilisé 
dans une boucle BEGIN..UNTIL. On aura donc 1 


COMPTEUR variable servant de compteur. pour s'arrêter, O pour continuer. 


ZERO remise à zéro du compteur. 


{ ROUTINES GENERALES 1 
5 PAGE ( — ) 147 EMIT : 
VARIABLE (RND) HERE (RND) ! 
RANDOMISE _( 
DUF (RND) ! 
} 


RND (© n-n° RANDOMISE Li SWAP DROF : 
RANDOM { n-n* )  1+  KND 1 MAX : 


n-n ) CRND) 9 31421 * 6927 + 


LHUATUMBEUN em GC 


WITHIN { n° inf sup - # ) 
3R 1- OVER & 
SWAF Rx  < AND : 


ROUTINES GENERALES II 


O/N 
HEGIN debut da la boucle ) 
KEY attend une touche 
DUP 79 = est-ce 0 ? ) 
IF 1 SWAP si oui on met ji et on swape le flao) 
ELSE 78 = IF © 1 sinon si c'est N on met © ) 
ELSE @ .{ si c'est ni O ni N on recommence ) 
THEN 


Ô 
1 

2 
4 
5 
6 
7 
8 
9 


THEN 
UNTIL 


ENCORE? Ç — # ) ." Voulez vous continuer®? O/N " 
O/N O= 3: 


( ROUTINES GENERALES III ) 
VARIARLE COMFTEUR 
ZERO © COMFTEUR ! : 


AJOUTE i COMFTEUR +! 5 
COMRIEN COMPTEUR © : 


nt e © 


ON 
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FORTH 


MOTS "MOBILE "" + 


pau VU, Baden (FIG, des, 943, 


Le problème des "mots se définissant 1xmémes tt revient 
souvent &n Forth, mais est rarement réconna pour ce qu'il 

C'est un paradoxe du Forth Standard que L'on ELU € défi 
mir un mot £nomXs que L'on utilise ensuite pour définir un mot nom : 
Que EnomXs ne sera plus jamais utilisé, maig QUees À on me peut définir 
noms directement, 

Far exemple, Supposons que nous voulions un mot 1 CT, incr 
mentanñt de À le nombre qu'il contient à chaque appel. Une première 
méthode congiste à définir deux 


CRETE TALLY  &, 


nm OCTR Co mo) TALLY DUR @ 1 MOT «41 5 


Mais On peut aussi définir un mob de définition &t l'utili- 
Ber LME FOLES 


5 COUNTER 


CREATE & 


J 


LOUINTEER 


TR 


Éti en Cr 


Si MOQUE pouvons définir ur met pouvant définir 
noms nous devrions étre capable de définir <oomt { LA bles y 
Lax@en propose une solution basée sur Une propriété Liz ours 
méthoctes rticuliéere d'implantation, Cette approche, brie Les 
Mmant interdite par Le Standard, ne fanctianne p CRTNE 
chalirége direct, ri 1 [rte Ceunpri Le, mi 
tation mémoires et 


M 


À 
3.4 


che cipacpinentie 


DIF 6 COTE Ut LE CT 


Li 


D, Diane ve gén, dre goss 


dus 


Lire Lénine 


et cer Ne une BOUT Gr Cqui 65 
S1ON AU (prochain) 


# DOG mr ACT 
LEO E Écounpii dati cri 


définit Le comportement à L'eséeution eur mot créé RUE 
mot de céfinition da haut niveau, LL 


D OUCX Foires 


BÉÉRAUELS SOMME su ROBE Des 


sat de définition nt lisant 
Lei 


PART oua Lout ont ubtili 


U Le dernier mot défini 


+! no sh ps e, eg . " Ÿ … se FE où pre 
“PICAN SE Est AU Ur Er cie Core 


pilation, 


iles iles ini 


AL Commence La définition 
LOGE Coms à 


GARE lt Les 


ÉNNME  S 


LEFT CE Eu LE 66 


RéELNIE Von ds CE 


CRFATE 


Eire Gr, 

hi. 
1 des 
Teen par 


pi lé, Gt Lis Min 


Le une a#finité cirbalnme ave MAI 
nm les mets 
raghelle que quelqu che 


MaDUIES "que 
SECLCICH RE Ga TC uuries € 
JC} | 


dan "st ir 


u-H 


PICHUES 
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au dénut du mot plutot qu'a La + in nous signalent que ce m'est pas Un 
mot de définition, 
Gi à 
Peu le modèle 
Si DOS 
DOESF, vaut %, on peut faire les 


peut étre implanté, il en est de même de  sDOESS, 
, voici comment pracéder 
SIZE, nombre d'ouctets de code machine compilés par 
définitions Su vantes:s 


FORTE Gun mot MDOES" typique) & CCR 
CONSTANT  BOES--Or 


@ CONSTANT DUB ADDR 


1 sFATCHS Hit. SWAF ! 


DOES-- CIF 


, CCSE 1 


La machine  URILISE Un 
LOL ts de généré par DÉEL 


chers 


FCGRTH &  CGUNT 


CONSTANT DOES- UT 
LENGTH + CONSTANT DORE ADDX 


1 PATCH 
AS 


HERE SUWAE 
0 CG, DUEG-ADDFR MÈRE 4 ÉLUS 


Gi DOES-BLZE vaut 4, remplace: MÉDUNT® par MEN THE nt ML" 
par MST, 


2 LATEST Qu pif à 
CURRENT @ HTHAEADS  LORGEG TONI L SMAME 


s cc DUESY LATEST DUF  LAST 1 NSMES HI DE ss PATEUHEE 3 


= LATEST est un vieil ami de FTGeFor th et contient Le clianifs 
nom de La dernière définition du Viacabalairis de compilation, 


Dec mote utiles pour Ce COnCepl Em T3 


s VALLE  CREATE  ,  DUESX #35 


CREATE LH CRASH DOEGE  PERFORA & 


La AGE pt À et aséoute ABORTI si 
à ETIONNE 


où CRASH affiches On me 
une autre valent M'A Fas 


ETE des tenmt maintenants 
GO VALUE CTR  2DOESE DUR & 1 KUT ic 


Moiet d'autres exwmmples Caxtraits da Lasxen & L Perrot 


# DURE 


DEFER FE 7. 
LE Et HLINE OFF HOUT OFF 3 


dhs méme pou AT et DARE), 


| — 
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FERFORM et OFF ont pour définitions 


5 FERPFORM  Cadr - qe ) 
@ EXECUTE : 


: OFF € adr 
à SWAE ! : 


La définition de SWITCH du méta-compilateur da  Laxken-Fearrsy 
est confuse, Mais si on fait d'abord: 
s EXCOH CO adr1i,adre -- + échange de leurs valeurs ) 
2DUF &@ ER 6 SWAF 1 RE SWAF 3 


on obtient ensuite: 


CREATE SWITCH 
CONTEXT @  , CURRENT & 
1DOESS  DUF CONTEXT  EXCH 
+ CURRENT EXCH S 


L 


:D0ES+ peut être utilisé dans d'autres définitions de 
Laxen-Ferrs. 


AA VALUE MS om 2 délai d'env, 1m m5 ) 
2D0OES + & SUAF  Q PDO  DUF  G DO LOUF LOOPF DKOF :; 


Un générateur de nombres pseudo-aléatoires est comme CTE 


HERE VALUE RANDOM 
DES DUF @  Æ1429 4% Lt  DUF  KOT 3 


# 


sDOES+ est bien adapté aux Cables mathéma tiques SUrELOUt si 
3 
un traitement EU E) Lémentaire est re CU 151 


D , ... € valeurs de la table 


Voici un mot empilant La valeur (4 où 1) d'un bit donné 
d'un octets 


CREATE BIT Coctet,bit#  @/1 0) 
6 BDs Os 003. 16e Ar BAC, “HE EE, 
2DUESX + C NOT AS 3 


Si vous Soupgonnez un sens caché au mot :FATCHS, vous avez 
raison, Vous ne pouvez l'utiliser dans un programme standard, mais il 
peut être utile pour "déboguer" dans un environnement UF EDIT CENT A € 
Far exemple: 
IT ,'" ONE," 5 
TRY OO." THIS IS M" OIT 5 TKY 
IT 2ÉATCHE DROF "TROT Os TRY 
OT :FATCHS GK ," Ms TRY 
et TRY affiche: 
THIS IG ONE, 
THIS 15 TWO. 
THIS IS ANOTHER ONE, 


traduction À, J,., sept. 84, 


_ 
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TA .Baces DE DONNEES ET SYSTEMES 


F1] 
BASE DE DONNEES 
ET MECANISMES DE DEDUCTION 


Cette approche est plus orientée Bases de Don- 
nées que les précédentes, elle consiste à aug 
menter les possibilités des Systèmes de Gestion 
de Bases de Données par l'adjonction de mécanis- 
mes de déduction. Ces mécanismes peuvent être 
implantés de diverses manières, celles-ci sont 
présentées au moven des exemples qui suivent. 


BASE DE DONNEES RELATIONNELLLES 
EXPERIMENTALE 
BASEE SUR LA LOGIQUE 
(Jack MINKER) 


C'est une Base de Données Relationnelle basée 
sur la logique, élaborée par Jack MINKER à l'U- 
niversité du MARYLAND. 


La logique est utilisée pour représenter les 
connaissances, elle forme une base mathématique 
du raisonnement sur les données et du maintien 
de l'intégrité de la base de données. Ce main- 
tien de l'intégrité de la base est indispensable 
si l'on veut dériver de nouveaux faits explici- 
tement à partir de la base. 


Ce svstème est utilisé pour gérer de grosses 
bases de données ainsi que pour résoudre des 
preuves de théorèmes. 


x Les requètes sont énoncées sous forme 
formules bien formées du calcul des prédicats. 


de 


x Les connaissances du système sont stockées 
sous forme de réseaux sémantiques. Ceux-ci sont 
mémorisés dans la base de données explicites. 


* Les axiomes permettant de dériver de nouveaux 
faits sont stockés dans la base de données  im- 
plicite. 


L'objectif majeur de ce travail est de dévelop- 
per un svstème où l'on pourrait déduire de nou- 
veaux faits, ceux-ci étant implicites à partir 
des données de la base. 


Ce système se nomme M.R.P.P.S 3.0. i.e Maryland 
Refutation Proof Procedure System, et est  im- 
planté sur un UNIVAC 1108. 


Une relation est un ensemble de tuples dont les 
attributs appatiennent à des domaines diffe- 
rents. 


certains ont un nombre de tuples quasi infini et 
peuvent se definir de différentes manlieres. 


Elles sont appelées relations virtuelles (pour 
exemple: est_un_ entier contient une infinite de 
tuples). 


Les tuples des relations que l'on peut définir 
de manière explicite sont rangés dans ja base de 
données explicite et sont exprimés sous forme de 
clauses singulières et completement instancibes. 


Les régles par lesquelles les relations virtuel- 
les peuvent étre définies sont rangées Sous 
forme de clauses dans la base de données impli- 
cite. Ces derniéres peuvent contenir des variab- 
les et des constantes. Le système MRPPS 3.0 est 
un système déductif qui relie ainsi les bases de 
données relationnellles et les systèmes experts. 


]1 posséde un langage d'interrogation, un méca- 
nisme déductif, une structure d'index pour accé- 
der à des relations réelles ou virtuelles. il 
peut fournir des réponses en langage naturel 
ainsi qu'expliquer le raisonnement trouvé d'une 
manière écrite et orale. 


Voici le schéma simplifié du système: 
ici schéma (p28) 


Les relations réelles et virtuelles sont entrées 
dans le DIoC 1, ieur syntaxe est ensuite véri: 
fiée par un module testant la validité des for: 
mules bien formées. Si ces formules sont va- 
lides. elles sont stockées respectivement dans 
la base explicite et dans la base implicite, 
dans le cas contraire elles sont rejetées avec 
un message d'erreur à l'intention de l'utilisa 

teur. 


Les requetes de l'utilisateur doivent étre mises 
sous forme dé claus , puis sont contrôlées dans 


te module de verification, 1e bioc 3. Celui-ci 


ES SAUCE: Septembre 1986 


EXPERTS par LANG,RAFORTHO,TOUAY. 


compare les expressions au réseau sémantique 
(incluant le modèle de connaissance) contenu 
dans le bioc 6. 


Le module de recherche déductive contrôle la 
recherche d'une réponse à une question. Cer- 
taines requêtes peuvent utiliser des éléments 
explicites et des éléments virtuels (stockés 
dans la base implicite). 


Toutes les connaissances du systéme sont sto- 
ckées dans le réseau sémantique du bloc 6 ji.e 
les relations réelles, les définitions des rela- 
tions virtuelles avec, de plus, des règles de 
controle des entrées et des informations séman- 
tiques. 


ui Das 
: e..! ; ' e—..! 
! Faits et! t Requête! 
! Axiones : , 


! Ler en 
t Vérification ----! 
{ du formalisme ju 
{ sous forne de ! 
sers mnenencenemnmenennenenesnmesnee.)! formules bien ; 
! éormtres Û 


! BD explicite 

! BD inplicite , d CA ï : 

! Graphe sémantique t----)! Base de ---- ! : 

* Espace forme sénanti- ! 1 Connaissance ! \ Module de $ 

4 ! 
‘ 


mt! 


4 Recherche 
! Déductive 


! Réponse rer 
* Raiïsonnement ! 


! Langage naturel 
! Voix orale À 


Le module index de la base de connaissances 
permet un accés rapide aux bases implicite et 
explicite et a un espace de formes sémantiques 


définissant les régles de controle des entrees, 
Le mécanisme de déduction se termine quand une 
réponse à la question est trouvée. Les réponses 
et le raisonnement peuvent étre donnés sous 
trois formes: la forme symbotique, le langage 
naturel écrit et le langage naturel oral. Lu 


réponse symbolique est sous la torme d'un arbre 
réponse.raisonnement. 


Le module du réseau sémantique contient quatres 
éléments impotants: 


Le graphe sémantique qui spécifie les liens 
entre catégories 


. La base de données rassemblant les données 
explicites (CEDB) et les données implicites 
(I1DB). 


Le dictionnaire des constantes, fonctions et 
catégories du système. 


L'espace de formes sémantiques définis 
les contraintes sémantiques sur les valeurs des 
relations. 


En logique multi-sorte, l'univers est composé de 
différents domaine. Chacun d'eux est appelé 
catégorie sémantique (pour exemple: zone géogra- 
phique, un pays). Les relations entre ces caté- 
gories sont décrites dans un graphe, le graphe 
sémantique composé d'incilusions, de différences, 
de chevauchements entre les domaines Cintersec- 
tions). L'ensemble de tous les éléments d'une 
catégorie particuliére représente une relation 
unalre. 


CES 


Esemple: 


DOG(X) --: ANIMAL(X): ANIMAL(Y) 
DOG{Fido) 


-: MAMMALCV) 


Pour prouver que Fido est un mammifére, le rai- 
sonnement suivant est effectué: Fido trouvé dans 
le dictionnaire, pointe dans le graphe sur DOG, 
or DOG pointe sur ANIMAL qui pointe sur MAMMAL. 


Ce qui nous donne le graphe suivant: 


UNIVERS 


MAMMIFERE GEOGRAPHIE 


ANTMAL TRAVAIL LOISIR 


FA 


CHIEN CHAT 


ETAT REGION VILLE 


La base de données est sous forme de clauses, 
soit entièrement instanciées pour les données 
explicites, soit contenant des variabies pour 
les données implicites. Le dictionnaire indique 
la catégorie sémantique de chaque relation cons- 
tante ou fonction du système, exemple: nom de 
relation, élément de tuple. L'espace forme sé- 
mantique définit les contraintes que l'on impose 
aux prédicats et à leurs arguments, on inclut 
les containtes d'intégrités dans cet ensemble. 
La base de connaissances est formulée sous Ja 
forme d'un arbre qui contient des listes de 
constantes et des listes de catégories sémanti- 
ques. A chaque élément de ces listes est associé 
l'ensemble des clauses, littéraux substitutions 
où l'élément pourra étre introduit, par exemple: 


TEMTLATI 
PAATEHN DD 
VAFLANCES 


PR PS DES ICO 


SUES1 JTUT LON URSSINTION 3 | SUESTITUTIOR ] 


CLAUSE ] CLAUSE 7 CLAUSE 4 
LITEU 2 LITBA LITERR 3 
2 s 


CAUSE 
ADOHESSLE 


SEMXTIC CATEGORIE. 
Lun 
BOOLEAX CATEGOFY EXPRESCIOKt 


CLAUSE 93 CLATSE 23 CLAUSE 
LITERAi ] LITERA 4 HS ADRESSES 
SUBSTITUTION 2 SURSTTILTION ) 


Les littéraux sont représentés sous forme d'ar- 
bre, le raisonnement de déduction utilise Île 
“pattern-matching" adapté de l'algorithme d'uni- 
fication de ROBINSON comme dans les Systèmes 
Experts. Le mécanisme de déduction est basé sur 
le principe de déduire une nouvelle clause à 
partir de deux clauses données. 


M.R.P.P.S 3.0 est un svstème à réfutation de 
preuve, il réfute le problème à résoudre et 
essaie de trouver une contradiction. 


Exemple: 


à l'aide des relations: fabrique, utilise, 


fournit 


Nom du 
Fabrique |fabricant| Produit Région 


Marteau Marÿliand 
Fourchette|Marvland 
Résistancel[Virginie 
Capacité virginie 
Diode Virginie 


Article 
Utilise fCompagnief utilisé R 
Radio Capacité New Yor 


En outre, une relation virtuelle est définie 
dans 1l'1IDB: 


fabrique(u,v,w) et utilise(r,v,s) -- 
fournitçou,r,v) 


La question est (3x) fournitCACME,RADIO,Xx) ? 


C'est à dire: qu'est ce que fournit la compagine 
ACME à la compagnie RADIO. 


La réponse du système par voix orale est la 
suivante: r 


1 réponse 
l'entreprise ACME fournit des capacités, des 
résistances à l'entreprise RADIO 


2 règle générale 

puisque l'entreprise ACME fabrique des capaci 

tés, résistances en VIRGINIE et que l'entreprise 
RADIO utilise des capacités et des résistances à 
NY, on peut conclure que l'entreprise ACME four- 
nit des capacités et des résistances à l'entre 

prise RADIO. 


3 faits 
l'organisation RADIO est située à NY et utilise 
des capacités et des résistances. 


4 fait 
l'organisation ACME est située en VIRGINIEF et 
fabrique des capacités et des résistances. 


Le processeur vocal de MRPPS 3.0 est une amétio. 
ration de celui développé au laboratoire de 
Recherches Naval en 1975. 


Ce système est une bonne approché du probléme, 
néanmoins il ne permet pas de réutiliser les 
SGBD existants. D'autre part, le systéme utilise 
le modèle relatinnel transcrit sous forme de 
résaux sémantiques, de plus, les requétes sont 
énpncées sous la forme de formules du calcul des 
prédicats ce qui rend l'interface utilisateur 
peu conviviale. 


DEDUCTIVELY AUGMENT DATA 
MANAGEMENT 
CKELLOG, KRLAR, TRAVIS) 


D.A.D.M. est une base de données déductive, 
conçue par KELLOG, KLAR et TRAVIS à l'Université 
du WISCONSIN. D.A.D.M. consiste à enrichir d'un 
module déductif un Systeme de Gestion de Base de 
Données Relationnelile classique. 


Des techniques de plan d'inférence ont te in 
corporées à un processeur déductif dont l'objec 

tif est de d'extaire des informations implicites 
à partir du contenu d'une base de données rela: 
tionnelle. Chemin déductif et plan d'inférence 
sont utilisés pour sélectionner de petits ensem- 
bles de prémisses pertinentes, pour construire 
des bases de déduction. Lorsque ces bases sont 
vérifiées, le systéme les utilise comme plan 
pour créer des stratégies d'accès à la base de 
données afin de guider la recherche des valeurs, 
l'assemblage des réponses et la production des 
preuves soutenant ces réponses. 


Ainsi, DADM tenre de résoudre un inconvénient 
des SGBD actuels, l'incapacité de découvrir des 
relations implicites à partir de celles présen- 
tes dans la base de données. Ce prototype a deux 
objectifs: 


l- Permettre à l'utilisateur de poser des 
requêtes complexes au svstéme, qui se 
chargera de trouver des connesions entre Jles 
concepts spécifiés par l'utilisateur et les 
structures de la base de données. 


Générer pour l'utilisateur des informations 
dérivées de la base de données. 


—+ 
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Pour cela, des techniques interactives entre 
l'utilisateur et le système ont été développées 
afin que le système crée et affiche des plans et 
des chaînes d'évidences. L'utilisateur participe 
donc activement en donnant des conseils ainsi 
qu'en raffinant ses questions. ce cycle interac- 
tif continue jusqu'à ce que l'utilisateur soit 
satisfait tant de la quantité, que de la qualité 
des informations dérivées. Parfois, le système 
fournit une réponse conditionnelle plutôt qu'une 
réponse catégorique. dans tous les cas, le sys- 
téme demande confirmation d'un résultat en ques- 
tionnant l'utilisateur. 


Le système est constitué d'un processeur de 
déduction basé sur les réseaux sémantiques et 
d'un module d'exploitation d'un ebase de données 
relationnelle. L'analyse d'une requeéte est 
effectuée par la comparaison avec le réseau 
sémantique. Le processeur de déduction est indé- 
pendant du SGBD, son ajout ne nécessite donc 
aucune modification de celui-ci. 


Nous pouvons distingeur, d'une part le SGBD qui 
gère les données explicites, et d'autre part, le 
processeur de déduction qui utilise des données 
implicites (règies d'inférence, axiomes). 


Les requêtes ne nécessitant pas de recherche 
déductive sont envoyées directement au module de 
gestion de base de données. Le processeur déduc- 
tif sélectionne les prémisses des règles perti- 
nentes et fabrique des plans d'inférence (plan 
de déduction); il guide de plus la recherche 
dans la base de données des faits nécessaires à 
la déduction. 


Le schéma du système est le suivant: 


UTILISATEUR 


PROCESSEUR 


Le schéma général du système est le suivant : 


SYSTEME 
DE GESTION 
DE LA ED 


PROCESSEUR 
DE 
DEDUCTION 


REGLES 
D'INFERENCES 


RESEAL 
SEMAT IQUE 


requétes sont entrées dans le 


Les régles et 
système sous l'aspect d'expressions en forme 
normale du calcul des prédicats du premier or- 
dre, avec le signe d'implication. Dans les rè- 
gles ainsi formées, les hypothèses des questions 
sont situées à gauche de l'implication alors que 
les buts sont à droite. Chaque prédicat est une 
relation de la base. Cette formulation des con- 
naissances est ainsi la conjugaispn du modèle 
relationnel avec des modèles utilisés dans Îles 
systèmes experts. 


sortes d'informations sont extraites 
des régles à l'entrée et sont utilisées pour 
créer un graphe de connexion des prédicats 
(GCP). L'implication à l'intérieur d'une régle 
est représentée par un lien de dépendance dans 
ce graphe. Les liens de nouvelles règles avec 
d'anciennes sont décrits à l'aide d'arcs. 


plusieurs 


| 


ICI tt MAINTENANT! 


présente 
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Searle de la page PES 


Un programme écrit sur IBM 3090 tournera sur QL- 
SINCLAIR (dans les limites imposées par le maté- 
riel bien sûr); les difficultés d'adaptation ne 
viendront pas de l'APL, mais de ja disparité des 
systèmes et des supports. 


UN LANGAGE INTERNATIONAL 


Les opérateurs des primitives APL sont représen- 
tés par des symboles dont beaucoup sont des 
symboles mathématiques classiques: 


+ sr st : Ÿ X etc... 


Cet aspect de l'APL rebute certains débutants 
bien que pratiquemment la mémorisation des nou- 
veaux symboles se fasse progressivement et sans 
douleur. L'APL est indépendant de toute langue 
nationale: on n'y retrouve pas de mots clés tels 
que GOTO, WEND, ELSEIF etc... qui font ressem- 
bler certains langages à du bishlamar (sorte de 
sabir franco-anglais parlé dans certaines iles 
du Pacifique). 


Pour exemple, on veut remplacer J]la division 
: par une fonction qui effectue la même 
opération, mais qui, si le diviseur est nul, 
renvoie la valeur du dividende au lieu d'émettre 
un message d'erreur. On peut écrire une fonction 


« “ 


qu'on appellera "“DIVISER" ou “DIVIDE" selon Ja 
nationalité de chacun et qui prendra en compte 
le cas particulier du diviseur nul. au lieu 
d'écrire: 

A B 
on écrira 

A DIVISER B 
on aura créé un mot-clé qui permettra de faire 
certaines opérations que l'on aura défini en 
utilisant la même syntaxe que pour les opéra- 


teurs de base. Dans la définition du mot-clé (ou 
fonction) on peut utiliser les opérateurs de 
base ainsi que les mots-clés (fonctions) préala- 
blement définis. C'est là l'aspect évolutif du 
langage APL. 


UN LANGAGE MODULAIRE 


Un progiciel APL bien conçu est un ensemble 
modulaire et structuré de fonctions élémentaires 
à l'intérieur desquelles tous les types de bran 
chement sont possibles. Cette organisation modu 
laire permet une maintenance aisée, contraire 
ment à une légende complaisamment propagée. 


Cette possibilité de structuration à l'échelle 
macroscopique et d'utilisation des branchements 
à l'échelle microscopique procure au programmeur 
APL un outil plus souple et plus puissant que ne 
le sont les langages structurés par nature et 
par doctrine. 


APrés ces précisions nécessaires mais un peu 
indigestes, nous verrons par la suite comment 
utiliser concrètement un interpréteur cou inter 

préte) APL. 


Le MAGACINE 
de la 


MICRO 
INFORMATIQUE 


FORTHI La PROGRAMMATION STRUCTUREE par KERJEAN 


à : k | - ; : :9 
Complément du n°27 italien qui aurait oublié ses ciseaux à spaghetti: 
Ra Il y a plusieurs façons de s'en sortir: 
SINUS DE PRECISION - quitter le bloc logique grâce à des instructions 
comme LEAVE du FORTH ou BREAK du langage C. 
- quitter le sous-programme par RETURN ou EXIT. 
: - faire un calcul de booléen avant chaque aiguil- 
A partir d'une tab au pas de 10°, un calcul lage. 
d'erreur montre que, jusqu'à 5 décimales, la sé- Quelques exemples pour illustrer ceci} 
quence suivante convient: 
= angle en radian (<0,088 ) 
= x'*x42 
+ LA 
(( 4 +u'/3 ) * x! * C!' 
0 3 4 0 
T, B D E | 
Pour une machine 16 bits, le problème est celui 


NOTATIONS 


?C IF —{ BEGIN À Aiguillage 
() ELSE ( WHILE B Booléen 
}- THEH )} REAPEATS Séquence d'instructions. 
?) UNTIL 
CONVENTION: BOOLEEN: 0: Branchement 
autre: poursuite en séquence. 
L'organigramme suivant peut être présenté de fa- 


) * (1-u'/2) 
v' 


de la troncature. Pour cela, 
- toutes les valeurs sont multipliées par un modu- 
le M inférieur à 65300. 
- la multiplication devient: H */ 
RS PERS D PS SPAT RER EST con horizontale ou verticale: 
les valeurs sont arrondies avant remise à l'échelle 


l'arrondi est compensé en majorant Tx de 1 . f 1 
1 


| 3 
Le programme devient: Si B1 A S2 B2 A2 


{ SCx-- ) ; 2. 4 
+8*4M*/R132+192/M+1+M*/ MX/ + AR> 128/ M*/ - 


di Tx B DE : 1 s1 B1 At 2 
Dans Fe cas présent,les diagrammes sont avanta- S2 B2 A2 


3 S3 4 
S4 
Le branchement avant doit être remplacé par 


L ti d ’ ___ deux aiguillages IF THEN de part et d'autre du 
SR DEF int 3, et le booléen B2 changé en: 


cile que la simple écriture d'une formule algébri- B3 B? NOT OR —»B! 
que, mais les méthodes montrées dans cet article . : 

: A à Le programme FORTH devient alors: 
devraient permettre sans problème une programmation 


: BEGIN St BI # Si Bi 
optimale,c'est à dire: 
: De é s2 ?( Se 


gesement remplacés par une disposition judicieuse 
de la formule algébrique, et des commentaires. 


: : : IF 
exacte, rapide d'écriture,mise au point, et exécu] THEN B2 B1 NOT OR )- B2 Bi NOT OR 
avec une bonne documentation. ne: UNTIL pt 7) 81 


1F S3 7(  S3 
THEN S4 k  S5 


LA PROGRAMMATION STRUCTUREE 


Voici un deuxième exemple plus complexe. Deux 
solutions sont possibles: 
4 ) calculer le booléen avant chaque aiguillage 
2) actualiser une variable booléenne avec les 
mots AND et NOT OR avant chaque aiguillage: ceci 
a l'avantage de permettre aux booléens élémentai- 
res de varier après l'instant de prise en compte 


Pourquoi la programmation structurée, alors que 
les premiers langages ne le permettaient pas? 
11s étaient axés vers le fonctionnement de la 
machine, qui ne savait, et ne sait toujours faire 
que: - transférer un mot 
- le mémoriser 
- soustraire,avec ou sans retenue 
- se brancher à une adresse donnée. 
Ce qui avait deux inconvenients: 
- non portabilité: un programme était très coû- 
teux à traduire pour une autre machine. 
- quasi impossibilité de démontrer qu' unprogramme 
correspondait à un akorithme donné. 
Le programme est devenu l'expression d'un algo- 
rithme à base de DEBUT FIN SI SINON TANT-QUE 
et non plus une liste d'ordres. 
Néanmoins, le GOTO n'àa pas entièrement disparu, 
sauf de quelques langages comme le FORTH. 


logique. 
C'est la méthode retenue ici: 
- une variable BOOLEAN est crée, ainsi que Îles 


mots FORTH: 
B BOOLEAN À : B! DUP BOOLEAN ! ; 


- ne sont conservées que les boucles BEGHIN 
UNTIL imbriquées. 


Comment faire alors pour retranscrire un program- 
me dont l'organigramme semble fait par un cuisinier 
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Ces exemples, surtout le deuxième, tiré d'un 
progâmme optimisé en assembleur, ne seraient pas 
très efficaces: pour limiter les aiguillages dans 
les boucles BEGIN UNTIL, il vaut mieux reprendre 
l'analyse. Souvent, il suffit de faire des pré ou 
post incrémentations, 

Pas d'affollement, donc, devant un organig 


gramme en plat de spaghetti: il suffit d'un peu 
d'algèbre de BOOLE pour avoir la solution. 


FORTH EXPERTISE -COMPLE MENT AU No25 par J.M. PREME SNIL 


Dans un précédent numéro, nous diffusions une application programmée à l'aide 
du logiciel EXPERT-2 appliquée au bâtiment. Nous avons omis un schéma et deux 
tableaux. Nous réparons donc ici cet oubli. 


PLUIE BATTANTE H3 


L 
| — 
EAUX DE RUISSELLEMENT 


LA Tx 


SES . La Pret s/$aL. 
LR ee 0 F . 2% ] 
__: NAPPE PHREATIAUE 


“Eau dans Cave 

-Cave humide 

—Murs cave ruisselant 1’ hiver 
“Idem mais en étage courant 


-Papier Peint où Peinture cloquée 
er Las dés mire 
Idem mais en haut des murs 
-SalPetre sur mur # 
-Taches de moisissure Sur exterieur 
bas mur FériFhérique “ 
-Idem en façade toute hauteur 
-Idem sur cloisons intérieures 
Joints de carrelañe boursouflés 
au rez-dé-chat ge 
Plafond taché 314 Centre en 6439 
EOUS comble 
-Idem mais en coin ou en FériPhérie 
de mur de fafade 
Idem mais en étage Courant 
-Décollement de carrela9e localisé 
dans salle de bain 
-Idem mais Sénéral 
-Sensation humide dans Pièce chauffée 
—lden dans Pièce froide CRE 
-Buée insistante dans salle de bain 
QU CUISINE 
-Taches sur Plancher di grenier 
-Taches localisée en PériPhérie du 
arenier 
-Taches au Pied des farade: 


U 


ae 
la 


-Taches localisées en fa 
-Tache en Fartie haute de 


TABLEAU 1 


TEDr N° 18- Seplambre 498$ 


1 Partie basse du batiment 


2 Façades (faces intérieures 
ou extérieures ) 


3 Intérieur du batiment sauf 
façades 


4 Partie haute du batiment 


TABLEAL 2 


FORTH Fonction SINUS:TRACE D'ARC DE CERCLE par M. PETREMANN 


VARIABLE KE MARTHELE TE 


FES Le it deg ses t4l CL 
QJYER VER ÆCO0S #4 6 + 


ROT FOT SIN 4 @ SUGP - ; 
: ARC € r DEB FIH --- 5 THOMSON 


1+ 6 OVER VER 
POEXIYI PSET R> 
SAP 
[RTE 
GIF". LD FOSHIRT -LIMETO 
D 
CEÛR à 


Le mot CENTRE initialise les valeurs X4 et Yf@ avec les 
valeurs déposées sur la pile. Attention, X@ et YO correspondent 
aux coordonnées du centre du cercle à définir, position définie 
par rapport à l'origine des axes OX Ov dans un repère trigonomé- 
trique. Ce repère ne correspond pas au repère des coordonnées 
graphique du TO7. En effet, ce repère commence en haut et à gau- 
che de l'écran, c'est pourquoi l'opération 199 SWAP - située dans 
CENTRE permet de replacer l'origine en bas et à gauche de l'écran 
du moniteur. 


Le mot POSX1Y1 calcule les valeurs X1 et Y1 correspon- 
dant à la position du point du cercle à tracer. Cette position 
se calcule comme suit: 


YI1=Y®Q + r x sin(a) 
X1=XY + r x cos(a) 


Le mot ARC trace un arc de cercle de rayon r et se tra- 
çant de l'angle DEB à l'angle FIN. Ainsi, pour tracer un cercle 
de ravon 5% dont le centre est aux coordonnées Xÿ=-129 et Yg-156, 
il faut taper: 


D 9 


365 


129 159 CENTRE ARC 


Dans la définition de ARC, le mot PSET positionne un 
point aux coordonnées x v, où X est le nombre de pixels à partir 
de la gauche de l'écran et v le nombre de pixels à partir du haut 
de f'écran. Le mot LINETO trace un trait à partir du dernier 
point tracé (par PSET ou LINETO) vers le point de coordonnées ab- [| 
SOIUES X v. 
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FORTHRESUME DES COMMANDES D’EDITION = JMP-MP -MZ- 


el 
elm 


HEAT 
FALC 
TELE 
QUME 
ANSI 
PERK 
DUMB 


83 MSDOS-CP/M 


RESUME DES COMMANDES D'EDITION 


ED Edite l'écran courant. 

EDIT EÉdite l'écran n. 

LIST Affiche sur le terminal l'écran n. 

L Affiche sur le terminal l'écran courant. 

A Pointe l'écran commentaire. 

N Appelle comme courant l'écran de numéro suivant. 

B Appelle comme courant l'écran de numéro précédent. 
TOP Place le curseur ligne O colonne CO. 

+T Avance le curseur n lignes plus loin. 


T Place le curseur ligne n colonne 0. 

C Déplace le curseur de n caractères. 

I txt Insère le texte à la suite du curseur. 

O txt Surimpressionne le texte à la suite du curseur. 

P txt Remplace le texte sur la ligne courante. 

NEW txt Remplace le texte sur la ligne n et continue sur la 
ligne suivante jusqu'à l'entrée d'un texte vide. 


F txt Cherche le texte et place le curseur à sa suite. 

S txt Cherche le texte jusqu'à l'écran n et place le 
curseur à sa suite. 

R txt Remplace le texte trouvé par F ou sS. 

E Efface le texte trouvé par F ous. 

D txt Cherche le texte et l'efface. 

U txt Insère une ligne blanche à l'emplacement du curseur. 


TILL txt Efface du curseur jusqu'au texte compris. 

JUST txt Efface du curseur jusqu'au texte non compris. 

KT txt Efface du curseur jusqu'au texte compris en le 
plaçant dans le tampon "INSERT ‘. 


X Efface la ligne courante et la déplace dans le 
tampon ‘'INSERT'. 
WIPE Efface l'écran en totalité. 
K Echange le contenu des tampons INSERT et FIND. 
SPLIT Déplace le reste de la ligne sur la ligne suivante. 
JOIN Regroupe la ligne suivante à la ligne du curseur. 
G Copie la ligne 1 de l'écran e sur la ligne courante. 
BRING Copie les lignes de 1 à m de l'écran e à partir de 
la ligne courante. 
W Sauvegarde sur disque les écrans modifiés. 
QUIT Sortie éditeur sans sauvegarde écrans modifiés. 
DONE Sortie éditeur en sauvegardant les écrans modifiés. 
t 
O ! 
VIDEO A appels aux commandes 
’ de terminal vidéo particulier. 
“ t 
IN ! 
! 


ex 


> 


